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STSTEM OPMTE 
The LISP system (command version) has bssn updated. Bugs corrected 
include i 

1. out of pushdown list in compiled function vill not transfer 
to 77777. 

2. with compiler printing turned off by congrint . it is truly off. 

3. compiler won't die with "HOPDL - MARIXIST" complaint. 

A. "ERBOR^A/" when running compiled program no longer occurs. 

5. CSET AND CSKTQ have their p&oper values. 

6. the public versions of PRDTT DATA and EDIT DATA have been 
improved* In particular* the function DEPINELIST has been removed from 
PRIST; BDIT has had a minor bug in filelistadd c orrected, and the functions 
filelistdeletf [1; x; y] , and extract [1; n; m] added. The former 
deletes the functions on the list 1, from file n m and writes a new 

file n EDIT with these changes made. The latter extracts the functions i 
from the file n DATA end adds them to the file m DATA, updating the disc 
by writing appropriate EDIT class files. 

namreaa 

Additional utility functions are available in the public files: 
1. CHAIH DATA, (Martin) contains primarily the function chain [1] 
which allows a lisp function to execute CTSS commands. 1 is a list of 
conmand-argUBent subllsts which will be executed in order (a system 
glitch limits 1 to a m a xiro m of 5 conmand - argwent lists). 
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B*g. chain [ (SAVE T) (LIST? PRIST MIA) (REStKB T) ) ] will 
cause the system to act aa If LISTP PRINT MXA had been typed at 
command level , and something like 

12/06/64 PRINT DATA P 3 

will be typed out. The value of CKain la NIL. 

2. QWRIT 11ATA and LPREAD DATA (Hart) contain functlona more or 
less analogous gnadltap and read lap described In the T,ISP 1,5 Manual . 

Comvrite [fl; name] (found in the file CMWRIT MIA) causes the 
functions mentioned In the list fl to be compiled and written on the 
disc as a file named name *LAP*. They are In a form to be read In by 
Up read * lap is redefined In CMWRIT DATA, so don't try to uae it once 
this file Is read in, 

lapread [Ij (found in UHEAD DATA) reads in all the flies whoae 
first name Is In the list 1 and whose second name la *LAP*. The compiler 
(but not lap) may be exclse 'ed before using lapread . Beware of lapreadlng 
files which have Identical gensym names for fractional arguments. To 
help notice this, the value of lapread is a list of subllats whose element* 
are the mantes of the functions in the coreeponding *IAP* file, Including 
functional arguments* 

3. SET nATA (Bart) containing: 

uglon * intersection » act equal , which should be obvious, and also: 

makeset II] forma of list vlth Che same elements as 1, except that 

none occurs more than once. 

dlf fl; &] form a llet of all the elements of 1 which aren't in ■• 
symdif [1; m] - appmdf dlf [1; m] ; dlf [m; lj J 
delete [x; 1] - dlf [1; x ] 
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forall [1; p] it a predicate which ii true iff p[x] ( a functional) 

is true for each eleewnt of 1. 

forany [1; pj similar to f oral I except read "any* for "each", 

aapl [1; £n]l is papllst including that annoying extra car* 

oapend [1; fnj is mapcon uiing append instead of nconc, and including 

the extra c ar * 

for [1; fnl is «aj> with the extra car. 



put [x; a; i] puts x on the property list of a under the indicator 
1* Its value is x. 

add [x; a; ij corses x onto the list which is already under the 
indicator i on the property list of a* If nothing Is there, it has 
the €ffect of: 

put [llatlacli a; lj 

The value of add is the new entry under 1. 

6, S0BL1B DATA (McCarthy) contains an improved (does less copying) 
sublis. (Advantage is realized onl> when J.het* functions are compiled. 



